home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 62 / 062.d81 / political bs (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  970b  |  25 lines
  1. 100 poke53280,.:poke53281,.:print"[147]"
  2. 110 gosub240: rem print message
  3. 120 print"     [208]lease wait, loading font...[157][157][157][157][157][157][157]";
  4. 130 sys57812"pbs.font",8,0:poke780,.:poke781,.:poke782,224:sys65493
  5. 140 :
  6. 150 print"sprites...[157][157][157][157][157][157][157][157][157][157]";
  7. 160 sys57812"pbs.spr",8,.:poke780,.:poke781,.:poke782,240:sys65493
  8. 170 :
  9. 180 print"m-l code..."
  10. 190 sys57812"pbs.ml",8,.:poke780,.:poke781,.:poke782,206:sys65493
  11. 200 :
  12. 210 print"[145]                                      "
  13. 215 poke214,13:print:print"[145]       and now -- [208][207][204][201][212][201][195][193][204] [194][211]...     "
  14. 220 print"[144]load";chr$(34);"ls pol bs";chr$(34);",8"
  15. 230 print"run":poke631,13:poke632,13:poke198,2:end
  16. 240 poke214,16:print:print"  [155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][152]"
  17. 250 fori=1to3:print"                                      ":next
  18. 260 print"       [208][213][194][204][201][211][200][197][196] [207][206] [204][207][193][196][211][212][193][210] #62      "
  19. 270 print"       ([195]) 1989 by [211][207][198][212][196][201][211][203], [201]nc.     "
  20. 280 print"      [211][213][194][211][195][210][201][208][212][201][207][206][211] 1-800-831-2694    "
  21. 290 print"  [151][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  22. 300 au$="[208][207][204][201][212][201][195][193][204] [194][211]":poke214,18:print:printspc(20-len(au$)/2)"[152]"au$
  23. 310 au$="by [197]. [202][197][206][203][201][206][211] and [203]. [199][210][207][214][197][210]":poke214,19:print
  24. 320 printspc(20-len(au$)/2)"[152]"au$"":return
  25.